64'er Special 57

home *** CD-ROM | disk | FTP | other *** search

/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / minimon 64 (.txt) < prev next >

Wrap

Commodore BASIC | 1990-01-01 | 5.2 KB | 452 lines

100 lety=# 1000 print"[147] ********************** 1001 [153]" ** ** 1002 print" ** minimon 64 ** 1003 [153]" ** ** 1004 print" ** fuer ** 1005 [153]" ** tinycompiler ** 1006 print" ** ** 1007 [153]" ** <c> nss 1985 ** 1008 print" ** nh 080286 ** 1009 [153]" ** ** 1010 print" ** version $"; 1011 poke53280,0 1012 gosub13020 1013 print" ** 1014 [153]" ** ** 1015 poke53281,0 1017 print" ********************** 1060 [151]204,0 1070 [151]650,128 1080 [153]">"; 1090 [136]f[178]0 1100 [158]42336 1110 [136]z[178]512 1120 [136]v[178][194](512) 1130 [139]v[178]0[167]1080 1140 [139]v[178]62[167]1160 1150 [137]1220 1160 [136]x[178]z[170]1 1170 [136]c[178][194](x) 1180 [151]z,c 1190 [139]c[178]0[167]1110 1200 [136]z[178]z[170]1 1210 [137]1160 1220 [139]v[178]77[167]3020 1230 [139]v[178]71[167]6020 1240 [139]v[178]88[167]4020 1242 [139]v[178]81[167]4020 1250 [139]v[178]76[167]5020 1260 [139]v[178]83[167]5020 1270 [139]v[178]70[167]7020 1280 [139]v[178]84[167]8020 1290 [139]v[178]72[167]9020 1300 [139]v[178]67[167]8020 2020 [136]j[178]0 2030 [136]k[178]j[170]j 2040 [136]k[178]k[170]j 2050 [136]t[178]k[170]4 2060 [141]10020 2070 [141]17000 2081 [136]j[178]j[170]1 2090 [139]j[179]8[167]2030 2100 [141]11020 2110 [139]c[178]28[167]2130 2120 [137]14020 2130 [136]s[178]1 2140 [136]a[178]1 2150 [136]g[178]0 2160 [136]t[178]4 2170 [141]12020 2180 [141]17000 2190 [136]d[178]g 2200 [136]j[178]0 2210 [136]k[178]j[170]j 2220 [136]k[178]k[170]j 2230 [136]a[178]6[170]k 2240 [136]s[178]3 2250 [136]g[178]0 2260 [136]t[178]a[170]1 2270 [141]12020 2280 [141]17000 2290 [136]e[178]d[170]j 2300 [151]e,g 2310 [136]j[178]j[170]1 2320 [139]j[179]8[167]2210 2330 [137]1080 3020 [136]t[178]1 3030 [141]10020 3040 [136]t[178]6 3050 [141]10020 3060 [141]17000 3070 [141]11020 3080 [139]c[178]11[167]3100 3090 [137]14020 3100 [136]s[178]1 3110 [136]a[178]3 3120 [136]g[178]0 3130 [136]t[178]12 3140 [141]12020 3150 [141]17000 3160 [136]h[178]g 3170 [136]s[178]1 3180 [136]a[178]8 3190 [136]g[178]0 3200 [141]12020 3210 [141]17000 3220 [136]y[178]h 3230 [153]">"; 3240 [141]13020 3250 [153]" "; 3260 [136]i[178]0 3270 [136]d[178]h[170]i 3280 [136]y[178][194](d) 3290 [141]13120 3300 [153]" "; 3310 [136]i[178]i[170]1 3320 [139]i[179]8[167]3270 3330 [151]780,13 3340 [158]65490 3350 [136]t[178][194](197) 3360 [139]t[178]63[167]1080 3370 [136]h[178]h[170]8 3380 [139]h[177]g[167]1080 3390 [137]3220 4020 [151]650,0 4030 [151]204,1 4040 [128] 5020 [136]t[178]1 5030 [136]d[178][194](513) 5040 [139]d[178]34[167]5080 5050 [151]211,t 5060 [153]"on? 5070 goto1080 5080 letm=0 5090 letn=515+m 5100 lett=m+4 5110 ifm>15then5050 5120 letd=peek(n) 5130 ifd=34then5160 5140 letm=m+1 5150 goto5090 5160 lett=m+4 5170 gosub10020 5180 letw=17 5190 ifv=83then5220 5200 letw=7 5210 ifv=76then5260 5220 lett=t+3 5230 gosub10020 5240 lett=t+5 5250 gosub10020 5260 gosub17000 5270 gosub11020 5280 letn=m+w 5290 ifc=nthen5320 5300 lett=n 5310 goto5050 5320 lets=3 5330 leta=m+6 5340 letg=0 5350 lett=a+1 5360 gosub12020 5370 gosub17000 5380 leto=g 5390 letp=m+1 5400 ifv=76then5720 5410 lets=1 5420 leta=m+9 5430 letg=0 5440 lett=a+3 5450 gosub12020 5460 gosub17000 5470 gosub15020 5480 letr=h 5490 letq=l 5500 leta=m+14 5510 letg=0 5520 lett=a+3 5530 lets=1 5540 gosub12020 5550 gosub17000 5560 gosub15020 5570 leta=peek(45) 5580 letb=peek(46) 5590 gosub16020 5600 poke251,q 5610 poke252,r 5620 poke780,251 5630 poke781,l 5640 poke782,h 5650 sys65496 5680 poke45,a 5690 poke46,b 5700 .c 5710 goto1080 5720 print"[145][145] 5730 [141]16020 5740 [151]780,0 5750 [158]65493 5780 [137]5700 6020 [136]t[178]1 6030 [141]10020 6040 [141]17000 6050 [141]11020 6060 [139]c[178]6[167]6080 6070 [137]14020 6080 [136]s[178]1 6090 [136]a[178]3 6100 [136]g[178]0 6110 [136]t[178]12 6120 [141]12020 6130 [141]17000 6140 [158]g 6180 [137]1080 7020 [136]b[178]513 7030 [136]d[178][194](b) 7040 [139]d[178]32[167]7060 7050 [137]2020 7060 [136]t[178]6 7070 [141]10020 7080 [136]t[178]11 7090 [141]10020 7100 [141]17000 7110 [141]11020 7120 [139]c[178]14[167]7140 7130 [137]14020 7140 [136]s[178]1 7150 [136]a[178]3 7160 [136]g[178]0 7170 [136]t[178]15 7180 [141]12020 7190 [136]h[178]g 7200 [136]s[178]1 7210 [136]a[178]8 7220 [136]g[178]0 7230 [141]12020 7240 [136]i[178]g 7250 [136]s[178]3 7260 [136]a[178]13 7270 [136]g[178]0 7280 [141]12020 7290 [141]17000 7300 [151]h,g 7310 [136]h[178]h[170]1 7320 [139]h[177]i[167]1080 7330 [137]7300 8020 [136]t[178]1 8030 [141]10020 8040 [136]t[178]6 8050 [141]10020 8060 [136]t[178]11 8070 [141]10020 8080 [141]17000 8090 [141]11020 8100 [139]c[178]16[167]8120 8110 [141]14020 8120 [136]s[178]1 8130 [136]a[178]3 8140 [136]g[178]0 8150 [136]t[178]15 8160 [141]12020 8170 [136]h[178]g 8180 [136]s[178]1 8190 [136]a[178]8 8200 [136]g[178]0 8210 [141]12020 8220 [136]i[178]g 8230 [136]s[178]1 8240 [136]a[178]13 8250 [136]g[178]0 8260 [141]12020 8270 [141]17000 8280 [139]v[178]67[167]8370 8290 [136]j[178][194](h) 8300 [151]g,j 8310 [136]h[178]h[170]1 8320 [136]g[178]g[170]1 8330 [139]h[177]i[167]1080 8340 [137]8290 8370 [136]j[178][194](h) 8380 [136]k[178][194](g) 8390 [139]j[178]k[167]8410 8400 [137]8470 8410 [136]h[178]h[170]1 8420 [136]q[178][194](197) 8430 [139]q[178]63[167]9740 8440 [136]g[178]g[170]1 8450 [139]h[177]i[167]9740 8460 [137]8370 8470 [136]y[178]h 8480 [141]13020 8490 [153]" "; 8500 [137]8410 9020 [136]t[178]1 9030 [141]10020 9040 [136]t[178]6 9050 [141]10020 9060 [136]t[178]11 9070 [141]10020 9080 [141]17000 9090 [141]11020 9100 [139]c[178]14[167]9220 9110 [136]t[178]14 9120 [141]10020 9130 [141]17000 9140 [141]11020 9150 [139]c[178]17[167]9220 9160 [136]t[178]17 9170 [141]10020 9180 [141]17000 9190 [141]11020 9200 [139]c[178]20[167]9220 9210 [137]14020 9220 [136]s[178]1 9230 [136]a[178]3 9240 [136]g[178]0 9250 [136]t[178]c[171]1 9260 [141]12020 9270 [136]h[178]g 9280 [136]s[178]1 9290 [136]a[178]8 9300 [136]g[178]0 9310 [141]12020 9320 [136]i[178]g 9330 [136]s[178]3 9340 [136]a[178]13 9350 [136]g[178]0 9360 [141]12020 9370 [136]j[178]g 9380 [141]17000 9390 [139]t[178]13[167]9520 9400 [136]s[178]3 9410 [136]a[178]16 9420 [136]g[178]0 9430 [141]12020 9440 [136]k[178]g 9450 [139]f[178]1[167]1080 9460 [139]t[178]16[167]9520 9470 [136]s[178]3 9480 [136]a[178]19 9490 [136]g[178]0 9500 [141]12020 9510 [141]17000 9520 [136]l[178][194](h) 9530 [136]o[178]h[170]1 9540 [136]p[178]h[170]2 9550 [136]m[178][194](o) 9560 [136]n[178][194](p) 9570 [139]t[178]13[167]9630 9580 [139]t[178]16[167]9610 9590 [139]n[178]g[167]9610 9600 [137]9640 9610 [139]m[178]k[167]9630 9620 [137]9640 9630 [139]l[178]j[167]9700 9640 [136]h[178]h[170]1 9650 [136]q[178][194](197) 9660 [139]q[178]63[167]9740 9670 [139]h[177]i[167]9740 9680 [139]h[178]0[167]9740 9690 [137]9520 9700 [136]y[178]h 9710 [141]13020 9720 [153]" "; 9730 [137]9640 9740 .c 9750 [137]1080 10020 [136]b[178]512[170]t 10030 [136]d[178][194](b) 10040 [139]d[178]32[167]10080 10050 [151]211,t 10060 [153]"on? 10070 letf=1 10080 return 11020 letc=0 11030 letb=512+c 11031 letb=512+c 11040 letb=peek(b) 11050 ifb=0then11080 11060 letc=c+1 11070 goto11030 11080 return 12020 letb=511+a 12030 letc=peek(b) 12040 ifc<65then12080 12050 ifc>70then12080 12060 letc=c-55 12070 goto12110 12080 ifc<48then12290 12090 ifc>57then12290 12100 letc=c-48 12110 ifs=1then12150 12120 ifs=2then12180 12130 ifs=3then12210 12140 ifs=4then12230 12150 letu=4096 12160 gosub12310 12170 goto12230 12180 letu=256 12190 gosub12310 12200 goto12230 12210 letu=16 12220 gosub12310 12230 letg=g+c 12240 ifs=4then12280 12250 lets=s+1 12260 leta=a+1 12270 goto12020 12280 return 12290 gosub10050 12300 return 12310 letc=c*u 12320 return 13020 letu=4096 13030 gosub13290 13040 gosub13220 13050 gosub13310 13060 lety=y-b 13070 letu=256 13080 gosub13290 13090 gosub13220 13100 gosub13310 13110 lety=y-b 13120 letu=16 13130 gosub13290 13140 gosub13220 13150 gosub13310 13160 lety=y-b 13170 leta=y 13180 gosub13220 13190 letb=a 13200 lety=y-b 13210 return 13220 ifa>9then13270 13230 letc=a+48 13240 poke780,c 13250 sys65490 13260 return 13270 letc=a+55 13280 goto13240 13290 leta=y/u 13300 return 13310 letb=a*u 13320 return 14020 let t=c-1 14030 gosub10050 14040 goto1080 15020 leth=g/256 15030 leti=h*256 15040 letl=g-i 15050 return 16020 poke186,o 16030 poke185,1 16040 poke780,p 16050 poke781,2 16060 poke782,2 16070 sys65469 17000 iff=1then17020 17010 return 17020 .r 17030 goto1080